home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / Eudora 1.3.1 / source / Bits / wrap < prev   
Encoding:
Text File  |  1993-03-16  |  245 b   |  17 lines  |  [TEXT/MPS ]

  1. perl -x -s "{0}" {"Parameters"}
  2. Exit {Status}
  3. #!/usr/local/bin/perl
  4. while (<>)
  5. {
  6.   chop;
  7.     split;
  8.     $len = 0;
  9.     foreach $w (@_)
  10.     {
  11.         if ($len && length($w)+$len > 76) {print "\n"; $len = 0;}
  12.         $len += length($w)+1;
  13.         print "$w ";
  14.     }
  15.     print "\n";
  16. }
  17.